home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #2 / Monster Media No. 2 (Monster Media)(1994).ISO / prog_bas / mkeepr.zip / DEMO.FRM next >
Text File  |  1994-05-31  |  17KB  |  491 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "MouseKeeper Demo"
  6.    ClientHeight    =   2685
  7.    ClientLeft      =   2625
  8.    ClientTop       =   1980
  9.    ClientWidth     =   7935
  10.    Height          =   3090
  11.    HelpContextID   =   400
  12.    Left            =   2565
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   2685
  17.    ScaleWidth      =   7935
  18.    Tag             =   "This is a Form"
  19.    Top             =   1635
  20.    Width           =   8055
  21.    Begin ComboBox Combo1 
  22.       Height          =   300
  23.       HelpContextID   =   200
  24.       Left            =   5940
  25.       Style           =   2  'Dropdown List
  26.       TabIndex        =   26
  27.       Tag             =   "This is a Dropdown List"
  28.       Top             =   240
  29.       Width           =   1695
  30.    End
  31.    Begin CheckBox Check1 
  32.       BackColor       =   &H00C0C0C0&
  33.       Caption         =   "Capture System-Wide Mouse Events"
  34.       Height          =   240
  35.       HelpContextID   =   300
  36.       Left            =   180
  37.       TabIndex        =   0
  38.       Tag             =   "This is a Check Box"
  39.       Top             =   255
  40.       Width           =   3540
  41.    End
  42.    Begin MouseKeeper MouseKeeper1 
  43.       Height          =   420
  44.       Left            =   3780
  45.       ReturnProperty  =   2  'Name
  46.       Top             =   120
  47.       Width           =   420
  48.    End
  49.    Begin Frame Frame1 
  50.       BackColor       =   &H00C0C0C0&
  51.       Caption         =   "Mouse Events && Parameters"
  52.       Height          =   1785
  53.       HelpContextID   =   100
  54.       Index           =   0
  55.       Left            =   150
  56.       TabIndex        =   4
  57.       Tag             =   "This is a Frame"
  58.       Top             =   690
  59.       Width           =   7695
  60.       Begin Label Label6 
  61.          BackStyle       =   0  'Transparent
  62.          FontBold        =   0   'False
  63.          FontItalic      =   0   'False
  64.          FontName        =   "MS Sans Serif"
  65.          FontSize        =   8.25
  66.          FontStrikethru  =   0   'False
  67.          FontUnderline   =   0   'False
  68.          Height          =   285
  69.          Index           =   1
  70.          Left            =   5415
  71.          TabIndex        =   23
  72.          Top             =   690
  73.          Width           =   2220
  74.       End
  75.       Begin Label Label6 
  76.          BackStyle       =   0  'Transparent
  77.          FontBold        =   0   'False
  78.          FontItalic      =   0   'False
  79.          FontName        =   "MS Sans Serif"
  80.          FontSize        =   8.25
  81.          FontStrikethru  =   0   'False
  82.          FontUnderline   =   0   'False
  83.          Height          =   285
  84.          Index           =   2
  85.          Left            =   5415
  86.          TabIndex        =   25
  87.          Top             =   1050
  88.          Width           =   2220
  89.       End
  90.       Begin Label Label6 
  91.          BackStyle       =   0  'Transparent
  92.          FontBold        =   0   'False
  93.          FontItalic      =   0   'False
  94.          FontName        =   "MS Sans Serif"
  95.          FontSize        =   8.25
  96.          FontStrikethru  =   0   'False
  97.          FontUnderline   =   0   'False
  98.          Height          =   285
  99.          Index           =   3
  100.          Left            =   5415
  101.          TabIndex        =   24
  102.          Top             =   1410
  103.          Width           =   2220
  104.       End
  105.       Begin Label Label6 
  106.          BackStyle       =   0  'Transparent
  107.          Caption         =   "Return Property                      "
  108.          FontBold        =   -1  'True
  109.          FontItalic      =   0   'False
  110.          FontName        =   "MS Sans Serif"
  111.          FontSize        =   8.25
  112.          FontStrikethru  =   0   'False
  113.          FontUnderline   =   -1  'True
  114.          Height          =   285
  115.          Index           =   0
  116.          Left            =   5415
  117.          TabIndex        =   22
  118.          Top             =   330
  119.          Width           =   2220
  120.       End
  121.       Begin Label Label5 
  122.          Alignment       =   2  'Center
  123.          BackStyle       =   0  'Transparent
  124.          FontBold        =   0   'False
  125.          FontItalic      =   0   'False
  126.          FontName        =   "MS Sans Serif"
  127.          FontSize        =   8.25
  128.          FontStrikethru  =   0   'False
  129.          FontUnderline   =   0   'False
  130.          Height          =   285
  131.          Index           =   3
  132.          Left            =   4365
  133.          TabIndex        =   1
  134.          Top             =   1410
  135.          Width           =   1035
  136.       End
  137.       Begin Label Label4 
  138.          Alignment       =   2  'Center
  139.          BackStyle       =   0  'Transparent
  140.          FontBold        =   0   'False
  141.          FontItalic      =   0   'False
  142.          FontName        =   "MS Sans Serif"
  143.          FontSize        =   8.25
  144.          FontStrikethru  =   0   'False
  145.          FontUnderline   =   0   'False
  146.          Height          =   285
  147.          Index           =   3
  148.          Left            =   3315
  149.          TabIndex        =   2
  150.          Top             =   1410
  151.          Width           =   1035
  152.       End
  153.       Begin Label Label3 
  154.          Alignment       =   2  'Center
  155.          BackStyle       =   0  'Transparent
  156.          FontBold        =   0   'False
  157.          FontItalic      =   0   'False
  158.          FontName        =   "MS Sans Serif"
  159.          FontSize        =   8.25
  160.          FontStrikethru  =   0   'False
  161.          FontUnderline   =   0   'False
  162.          Height          =   285
  163.          Index           =   3
  164.          Left            =   2265
  165.          TabIndex        =   3
  166.          Top             =   1410
  167.          Width           =   1035
  168.       End
  169.       Begin Label Label2 
  170.          Alignment       =   2  'Center
  171.          BackStyle       =   0  'Transparent
  172.          FontBold        =   0   'False
  173.          FontItalic      =   0   'False
  174.          FontName        =   "MS Sans Serif"
  175.          FontSize        =   8.25
  176.          FontStrikethru  =   0   'False
  177.          FontUnderline   =   0   'False
  178.          Height          =   285
  179.          Index           =   3
  180.          Left            =   1215
  181.          TabIndex        =   20
  182.          Top             =   1410
  183.          Width           =   1035
  184.       End
  185.       Begin Label Label1 
  186.          BackStyle       =   0  'Transparent
  187.          Caption         =   "MouseUp"
  188.          Height          =   285
  189.          Index           =   3
  190.          Left            =   165
  191.          TabIndex        =   21
  192.          Top             =   1410
  193.          Width           =   1035
  194.       End
  195.       Begin Label Label5 
  196.          Alignment       =   2  'Center
  197.          BackStyle       =   0  'Transparent
  198.          FontBold        =   0   'False
  199.          FontItalic      =   0   'False
  200.          FontName        =   "MS Sans Serif"
  201.          FontSize        =   8.25
  202.          FontStrikethru  =   0   'False
  203.          FontUnderline   =   0   'False
  204.          Height          =   285
  205.          Index           =   2
  206.          Left            =   4365
  207.          TabIndex        =   19
  208.          Top             =   1050
  209.          Width           =   1035
  210.       End
  211.       Begin Label Label4 
  212.          Alignment       =   2  'Center
  213.          BackStyle       =   0  'Transparent
  214.          FontBold        =   0   'False
  215.          FontItalic      =   0   'False
  216.          FontName        =   "MS Sans Serif"
  217.          FontSize        =   8.25
  218.          FontStrikethru  =   0   'False
  219.          FontUnderline   =   0   'False
  220.          Height          =   285
  221.          Index           =   2
  222.          Left            =   3315
  223.          TabIndex        =   18
  224.          Top             =   1050
  225.          Width           =   1035
  226.       End
  227.       Begin Label Label3 
  228.          Alignment       =   2  'Center
  229.          BackStyle       =   0  'Transparent
  230.          FontBold        =   0   'False
  231.          FontItalic      =   0   'False
  232.          FontName        =   "MS Sans Serif"
  233.          FontSize        =   8.25
  234.          FontStrikethru  =   0   'False
  235.          FontUnderline   =   0   'False
  236.          Height          =   285
  237.          Index           =   2
  238.          Left            =   2265
  239.          TabIndex        =   17
  240.          Top             =   1050
  241.          Width           =   1035
  242.       End
  243.       Begin Label Label2 
  244.          Alignment       =   2  'Center
  245.          BackStyle       =   0  'Transparent
  246.          FontBold        =   0   'False
  247.          FontItalic      =   0   'False
  248.          FontName        =   "MS Sans Serif"
  249.          FontSize        =   8.25
  250.          FontStrikethru  =   0   'False
  251.          FontUnderline   =   0   'False
  252.          Height          =   285
  253.          Index           =   2
  254.          Left            =   1215
  255.          TabIndex        =   16
  256.          Top             =   1050
  257.          Width           =   1035
  258.       End
  259.       Begin Label Label1 
  260.          BackStyle       =   0  'Transparent
  261.          Caption         =   "MouseMove"
  262.          Height          =   285
  263.          Index           =   2
  264.          Left            =   165
  265.          TabIndex        =   15
  266.          Top             =   1050
  267.          Width           =   1035
  268.       End
  269.       Begin Label Label5 
  270.          Alignment       =   2  'Center
  271.          BackStyle       =   0  'Transparent
  272.          FontBold        =   0   'False
  273.          FontItalic      =   0   'False
  274.          FontName        =   "MS Sans Serif"
  275.          FontSize        =   8.25
  276.          FontStrikethru  =   0   'False
  277.          FontUnderline   =   0   'False
  278.          Height          =   285
  279.          Index           =   1
  280.          Left            =   4365
  281.          TabIndex        =   14
  282.          Top             =   690
  283.          Width           =   1035
  284.       End
  285.       Begin Label Label4 
  286.          Alignment       =   2  'Center
  287.          BackStyle       =   0  'Transparent
  288.          FontBold        =   0   'False
  289.          FontItalic      =   0   'False
  290.          FontName        =   "MS Sans Serif"
  291.          FontSize        =   8.25
  292.          FontStrikethru  =   0   'False
  293.          FontUnderline   =   0   'False
  294.          Height          =   285
  295.          Index           =   1
  296.          Left            =   3315
  297.          TabIndex        =   13
  298.          Top             =   690
  299.          Width           =   1035
  300.       End
  301.       Begin Label Label3 
  302.          Alignment       =   2  'Center
  303.          BackStyle       =   0  'Transparent
  304.          FontBold        =   0   'False
  305.          FontItalic      =   0   'False
  306.          FontName        =   "MS Sans Serif"
  307.          FontSize        =   8.25
  308.          FontStrikethru  =   0   'False
  309.          FontUnderline   =   0   'False
  310.          Height          =   285
  311.          Index           =   1
  312.          Left            =   2265
  313.          TabIndex        =   12
  314.          Top             =   690
  315.          Width           =   1035
  316.       End
  317.       Begin Label Label2 
  318.          Alignment       =   2  'Center
  319.          BackStyle       =   0  'Transparent
  320.          FontBold        =   0   'False
  321.          FontItalic      =   0   'False
  322.          FontName        =   "MS Sans Serif"
  323.          FontSize        =   8.25
  324.          FontStrikethru  =   0   'False
  325.          FontUnderline   =   0   'False
  326.          Height          =   285
  327.          Index           =   1
  328.          Left            =   1215
  329.          TabIndex        =   11
  330.          Top             =   690
  331.          Width           =   1035
  332.       End
  333.       Begin Label Label1 
  334.          BackStyle       =   0  'Transparent
  335.          Caption         =   "MouseDown"
  336.          Height          =   285
  337.          Index           =   1
  338.          Left            =   165
  339.          TabIndex        =   10
  340.          Top             =   690
  341.          Width           =   1035
  342.       End
  343.       Begin Label Label5 
  344.          Alignment       =   2  'Center
  345.          BackStyle       =   0  'Transparent
  346.          Caption         =   "X, Y"
  347.          FontBold        =   -1  'True
  348.          FontItalic      =   0   'False
  349.          FontName        =   "MS Sans Serif"
  350.          FontSize        =   8.25
  351.          FontStrikethru  =   0   'False
  352.          FontUnderline   =   -1  'True
  353.          Height          =   285
  354.          Index           =   0
  355.          Left            =   4365
  356.          TabIndex        =   9
  357.          Top             =   330
  358.          Width           =   1035
  359.       End
  360.       Begin Label Label4 
  361.          Alignment       =   2  'Center
  362.          BackStyle       =   0  'Transparent
  363.          Caption         =   "Shift"
  364.          FontBold        =   -1  'True
  365.          FontItalic      =   0   'False
  366.          FontName        =   "MS Sans Serif"
  367.          FontSize        =   8.25
  368.          FontStrikethru  =   0   'False
  369.          FontUnderline   =   -1  'True
  370.          Height          =   285
  371.          Index           =   0
  372.          Left            =   3315
  373.          TabIndex        =   8
  374.          Top             =   330
  375.          Width           =   1035
  376.       End
  377.       Begin Label Label3 
  378.          Alignment       =   2  'Center
  379.          BackStyle       =   0  'Transparent
  380.          Caption         =   "Button"
  381.          FontBold        =   -1  'True
  382.          FontItalic      =   0   'False
  383.          FontName        =   "MS Sans Serif"
  384.          FontSize        =   8.25
  385.          FontStrikethru  =   0   'False
  386.          FontUnderline   =   -1  'True
  387.          Height          =   285
  388.          Index           =   0
  389.          Left            =   2265
  390.          TabIndex        =   7
  391.          Top             =   330
  392.          Width           =   1035
  393.       End
  394.       Begin Label Label2 
  395.          Alignment       =   2  'Center
  396.          BackStyle       =   0  'Transparent
  397.          Caption         =   "hWnd"
  398.          FontBold        =   -1  'True
  399.          FontItalic      =   0   'False
  400.          FontName        =   "MS Sans Serif"
  401.          FontSize        =   8.25
  402.          FontStrikethru  =   0   'False
  403.          FontUnderline   =   -1  'True
  404.          Height          =   285
  405.          Index           =   0
  406.          Left            =   1215
  407.          TabIndex        =   6
  408.          Top             =   330
  409.          Width           =   1035
  410.       End
  411.       Begin Label Label1 
  412.          Alignment       =   2  'Center
  413.          BackStyle       =   0  'Transparent
  414.          Caption         =   "Event"
  415.          FontBold        =   -1  'True
  416.          FontItalic      =   0   'False
  417.          FontName        =   "MS Sans Serif"
  418.          FontSize        =   8.25
  419.          FontStrikethru  =   0   'False
  420.          FontUnderline   =   -1  'True
  421.          Height          =   285
  422.          Index           =   0
  423.          Left            =   165
  424.          TabIndex        =   5
  425.          Top             =   330
  426.          Width           =   1035
  427.       End
  428.    End
  429.    Begin Label Label7 
  430.       AutoSize        =   -1  'True
  431.       BackStyle       =   0  'Transparent
  432.       Caption         =   "Return Property:"
  433.       Height          =   195
  434.       Left            =   4485
  435.       TabIndex        =   27
  436.       Top             =   285
  437.       Width           =   1410
  438.    End
  439. End
  440.  
  441. Sub Check1_Click ()
  442.     MouseKeeper1.HookType = Check1
  443. End Sub
  444.  
  445. Sub Combo1_Click ()
  446.     MouseKeeper1.ReturnProperty = Combo1.ListIndex
  447. End Sub
  448.  
  449. Sub Form_Load ()
  450.     
  451.     Combo1.AddItem "0 - None"
  452.     Combo1.AddItem "1 - Caption"
  453.     Combo1.AddItem "2 - Name"
  454.     Combo1.AddItem "3 - Tag"
  455.     Combo1.AddItem "4 - HelpContextID"
  456.  
  457.     Combo1.ListIndex = 1
  458.     
  459. End Sub
  460.  
  461. Sub MouseKeeper1_MouseDown (hWindow As Integer, TagString As String, Button As Integer, Shift As Integer, X As Integer, Y As Integer)
  462.  
  463.     Label2(1) = hWindow
  464.     Label3(1) = Button
  465.     Label4(1) = Shift
  466.     Label5(1) = X & "," & Y
  467.     Label6(1) = TagString
  468.  
  469. End Sub
  470.  
  471. Sub MouseKeeper1_MouseMove (hWindow As Integer, TagString As String, Button As Integer, Shift As Integer, X As Integer, Y As Integer)
  472.  
  473.     Label2(2) = hWindow
  474.     Label3(2) = Button
  475.     Label4(2) = Shift
  476.     Label5(2) = X & "," & Y
  477.     Label6(2) = TagString
  478.  
  479. End Sub
  480.  
  481. Sub MouseKeeper1_MouseUp (hWindow As Integer, TagString As String, Button As Integer, Shift As Integer, X As Integer, Y As Integer)
  482.     
  483.     Label2(3) = hWindow
  484.     Label3(3) = Button
  485.     Label4(3) = Shift
  486.     Label5(3) = X & "," & Y
  487.     Label6(3) = TagString
  488.  
  489. End Sub
  490.  
  491.